home *** CD-ROM | disk | FTP | other *** search
/ Educational Software Cooperative 4 / Educational Software Cooperative 4.iso / midilang / membas.mpl < prev    next >
Text File  |  1996-02-06  |  2KB  |  115 lines
  1. 5874
  2. #
  3. #
  4. #
  5. #    membas.mpl
  6. #
  7. #    record your bass and replay it until the next record
  8. #
  9. #         Author            ID                 Date
  10. #       ------------    -----------          ---------
  11. #       Serge Sibony    100417,2633          09/06/95
  12. #      
  13. #
  14. # This file is a mpl effect definition used by MidiLang
  15. #    MidiLang can be found at the MidiForum, in the
  16. #         Windows sound media library.
  17. # 
  18. # #
  19. # This effect will record your bass ( in live ) during 8 beats
  20. # replay it until new bass are played.
  21. #
  22. #
  23.  
  24.  
  25. # the label beats is run at every beats
  26.  
  27. Label beats
  28. v!= 1 0
  29.     goto suite
  30. beat= 0        reset beat number to 0
  31. v= 4 0
  32. v=time 5
  33. v=time 6
  34. v= 2 0
  35.  
  36. Label suite
  37. v+= 1 1
  38. v+= 5 480
  39. v< 1 9
  40.     goto suite2
  41. v= 1 0
  42. goto beats
  43.  
  44. Label suite2
  45. v==v 2 3
  46.     goto end
  47.  
  48. Label loop
  49. v+= 4 1
  50. v>v 4 3
  51.     goto end
  52. v=v 7 4
  53. v+= 7 10
  54. v=vv 8 7
  55. v+=v 8 6
  56. v>v 5 8
  57. goto berk
  58. time=V 8
  59. v+= 7 60
  60. v=vv 8 7
  61. vel=v 8
  62. v+= 7 60
  63. v=vv 8 7
  64. note=v 8
  65. chan= 2
  66. outmidi
  67.  
  68. goto loop
  69. goto end
  70.  
  71. Label berk
  72. v-= 4 1
  73.  
  74. Label end
  75. end
  76.  
  77. Label Main
  78.  
  79. chan!= 2
  80.     goto end2 
  81. v==v 2 3
  82.     goto suite3
  83. v= 2 0
  84. v= 3 0
  85.  
  86. Label suite3
  87. v== 2 60
  88.     goto end2
  89. v+= 2 1
  90. v+= 3 1
  91. v=v 7 3
  92. v+= 7 10
  93. v=time 8
  94. v-=v 8 6
  95. vv=v 7 8
  96. v+= 7 60
  97. v=vel 8
  98. vv=v 7 8
  99. v+= 7 60
  100. v=note 8
  101. vv=v 7 8
  102.  
  103. Label end2
  104. end
  105.  
  106. Label none
  107. end
  108.  
  109.  
  110. descript this tool will memorize
  111. descript a set of basses ( channel 2 )
  112. descript on 8 beats
  113. descript and play it back until new basses
  114. descript are played
  115.